home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / seyon / script.CIS < prev    next >
Encoding:
Text File  |  1995-05-03  |  1.2 KB  |  53 lines
  1.  
  2. # The following IF condition tests to see if we are linked from a .phonelist
  3. # entry.  If not, we manually dial the local COMPUSERVE node:
  4.  
  5.     if !linked
  6.     dial    687-0374    # Note anything past a full command is ignored
  7.     endif
  8.  
  9. # Wait for a CONNECT message from the modem.  If we time out (20 seconds),
  10. # redial the number (it is probably busy).
  11.  
  12. connect:
  13.     waitfor "CONNECT" 20
  14.     if !waitfor
  15.     redial
  16.     goto connect
  17.     endif
  18.  
  19. # Pause a bit to let CIS catch up with us
  20.  
  21.     pause 2
  22.  
  23. # Transmit a Control-C (^C) to CompuServe, and then wait for the
  24. # prompt "User ID:".  If this is not seen in 10 seconds, we try again.
  25.  
  26. cis:
  27.     transmit "^C"
  28.     waitfor "User ID:"  10
  29.     if !waitfor
  30.     goto cis
  31.     endif
  32.  
  33. # Transmit the user id string (remember the ^M at the end for ENTER)...
  34.  
  35.     transmit "72236,3516^M"
  36.  
  37. # Wait for CompuServe to ask for a password...
  38.  
  39.     waitfor "Password:"
  40.  
  41. # Transmit our password
  42. # (You don't think for a moment that this is my REAL password, do you?????)
  43.  
  44.     transmit "YELLOW*BANANA^M"
  45.     
  46. # Wait for CompuServe header, and then transmit "G UNIXFORUM^M^O"
  47. # (The ^M is an ENTER, the ^O tells CompuServe to shut up until we
  48. # get there.)
  49.  
  50.     waitfor "Compuserve"
  51.  
  52.     transmit "G UNIXFORUM^M^O"
  53.